home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / mus / midi / MusicXRexxMacs.lha / macros / chords / THIRTEENTH.mxe < prev   
Text File  |  1997-02-05  |  2KB  |  76 lines
  1. /* © Dick Doyle */
  2.  
  3.  
  4. options results                    
  5.  
  6.  
  7.  
  8. MXRADIO "Selected Notes,All Notes"        
  9.  
  10.  
  11. MXREQUEST "THIRTEENTH,DO IT"  
  12. if result == 0 then exit            
  13.  
  14. MXPOINTER "sleepy"                
  15.  
  16. MXVALUE 1                    
  17. if result == 0 then BEGINSCAN 'selected'
  18. else BEGINSCAN 'all'                
  19.  
  20. if result ~= 0 then do forever            
  21.  
  22.   NEXTEVENT                    
  23.   if result == 0 then break
  24.  
  25.   if EVENT.TYPE == 'NOTE' then do        
  26.     newval = EVENT.NUM + 4
  27.     if newval < 0 then newval = newval + 128
  28.     if newval > 127 then newval = newval - 128
  29.     EVENT.NUM = newval
  30.     ADDEVENT
  31.   end
  32.   
  33.    if EVENT.TYPE == 'NOTE' then do        
  34.     newval = EVENT.NUM + 3
  35.     if newval < 0 then newval = newval + 128
  36.     if newval > 127 then newval = newval - 128
  37.     EVENT.NUM = newval
  38.     ADDEVENT
  39.   end
  40.   
  41.    if EVENT.TYPE == 'NOTE' then do        
  42.     newval = EVENT.NUM + 3
  43.     if newval < 0 then newval = newval + 128
  44.     if newval > 127 then newval = newval - 128
  45.     EVENT.NUM = newval
  46.     ADDEVENT
  47.   end
  48.  
  49.    if EVENT.TYPE == 'NOTE' then do        
  50.     newval = EVENT.NUM + 4
  51.     if newval < 0 then newval = newval + 128
  52.     if newval > 127 then newval = newval - 128
  53.     EVENT.NUM = newval
  54.     ADDEVENT
  55.   end
  56.  
  57.    if EVENT.TYPE == 'NOTE' then do        
  58.     newval = EVENT.NUM + 3
  59.     if newval < 0 then newval = newval + 128
  60.     if newval > 127 then newval = newval - 128
  61.     EVENT.NUM = newval
  62.     ADDEVENT
  63.   end
  64.  
  65.    if EVENT.TYPE == 'NOTE' then do        
  66.     newval = EVENT.NUM + 4
  67.     if newval < 0 then newval = newval + 128
  68.     if newval > 127 then newval = newval - 128
  69.     EVENT.NUM = newval
  70.     ADDEVENT
  71.   end
  72. end
  73. ENDSCAN                        
  74.  
  75. MXPOINTER "normal"
  76. exit